﻿Public Class GlobalController

    Public Shared Function FindCurrentRound() As Integer
        Dim curTime = Date.Now
        Dim curRound = 0
        If Date.Compare(curTime, rd1Deadline) > 0 Then
            curRound = 1
            If Date.Compare(curTime, rd2Deadline) > 0 Then
                curRound = 2
                If Date.Compare(curTime, rd3Deadline) > 0 Then
                    curRound = 3
                    If Date.Compare(curTime, rd4Deadline) > 0 Then
                        curRound = 4
                        If Date.Compare(curTime, rd5Deadline) > 0 Then
                            curRound = 5
                            If Date.Compare(curTime, rd6Deadline) > 0 Then
                                curRound = 6
                            End If
                        End If
                    End If
                End If
            End If
        End If

        Return curRound
    End Function

End Class
